home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {D49CCFC6-CF40-4AB6-89C4-092B32B429C1}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  1KB  |  21 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Sub Object_OnStateChange(state)
  5.     If state = "Command executed" Then
  6.         If DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("t_units") = "metric" Then
  7.             DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("t_units") = "imperial"
  8.         Else
  9.             DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("t_units") = "metric"
  10.         End If
  11.         DesktopX.ScriptObject("kdockweatherimage").showtemp
  12.         DesktopX.ScriptObject("kbarpin").savesettings
  13.     End If
  14. End Sub
  15. Sub Object_OnMouseEnter
  16.     DesktopX.ScriptObject("kdocktooltip").tooltip("click to switch units")
  17. End Sub
  18. Sub Object_OnMouseLeave
  19.     DesktopX.ScriptObject("kdocktooltip").tooltip("hide")
  20. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>306</EditorLeft><EditorTop>249</EditorTop><EditorRight>1065</EditorRight><EditorBottom>832</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>128</ControlObjWidth><ControlObjHeight>128</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  21.